home *** CD-ROM | disk | FTP | other *** search
- 1 GOTO910
- 2 REM ** ML STOP KEY DISABLE **
- 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
- 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
- 5 [153]"hhhhhhh`1"
- 6 [143] ** 4 - POP ML SUBROUTINE **
- 10 [143] **GENERAL INPUT ROUTINE **
- 15 :
- 30 :
- 35 [143] +++ INPUT SECTION +++
- 40 [151]UO,0:UR$[178]"":UI$[178]""
- 42 [139]UL[178]0[167]UL[178]80
- 45 [153]" CMDCMD";:[151]UC,0
- 50 [161]UI$:[139]UI$[178]""[167]50
- 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
- 60 [139]UI$[178][199](20)[167]105
- 62 [139] [195](UR$)[178][177]UL[167]50
- 65 [141]120:[143] CHECK FOR VALID CHARACTER
- 70 UR$[178]UR$[170]UI$
- 75 [153]UI$;
- 80 [137]50
- 85 [143] +++ CHECK FOR HELP REQUEST +++
- 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
- 95 [139]UF[178]1[167][141]240
- 100 UF[178]0:[153]:[142]
- 102 [143] ++ CHECK DELETE ++
- 105 [139][195](UR$)[179]1[167]50
- 110 UR$[178][200](UR$,[195](UR$)[171]1)
- 115 [153]"CMD CMDCMD";:[137]50
- 120 [143] ++ CHECK FOR VALID CHARACTERS ++
- 125 [139][195](US$)[178]0[167]150
- 130 [129]US[178]1[164][195](US$)
- 135 [139]UI$[178][202](US$,US,1)[167][142]
- 140 [130]
- 145 UI$[178]"":[142]
- 150 [143] ** STANDARD INPUT **
- 152 [139][198](UI$)[178]46[167][142]
- 155 [139]UI$[178][199](32)[167][142]
- 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
- 165 [142]
- 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
- 175 [142]
- 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
- 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
- 187 [142]
- 190 UI$[178]"":[142]
- 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
- 197 [141]250
- 200 [141]245
- 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
- 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
- 215 UZ[178]1:UV%[178][194](UT)
- 216 [137]300
- 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
- 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
- 219 [153]"LOAD";
- 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
- 225 [151]UQ,UQ%(UQ[171]UB):[130]
- 230 [151]U1,U1%
- 232 [151]U2,U2%
- 233 [151]U4,U4%
- 234 [151]U3,U3%[171]1
- 235 [137]35
- 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
- 245 [153][200](UD$,24);" HELP COMING WAIT ":[142]
- 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
- 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
- 255 [142]
- 300 [143] ** MENU **
- 301 :
- 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
- 303 :
- 305 [153]" MENU"
- 310 [153]" --------------------------------------"
- 315 [153]" 1. BEGIN CYCLON FIGHTER
- 320 PRINT" 2. STUDENT INSTRUCTIONS"
- 325 PRINT" 3. TEACHER INSTRUCTIONS"
- 335 PRINT" 4. QUIT"
- 340 PRINT" --------------------------------------"
- 345 PRINT" PRESS A NUMBER KEY (1-4) ";
- 350 UL=1:US$="1234":GOSUB35:REM INPUT ROUTINE
- 352 US$=""
- 355 ONVAL(UR$)GOSUB1000,400,500,396
- 360 GOTO300
- 395 REM ** RE-ENABLE STOP KEY AND END **
- 396 IFPEEK(50003)<>1ANDPEEK(50003)<>160ANDPEEK(50003)<>0THEN399
- 397 SYSUU+71:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
- 398 PRINT"[154][147]":END
- 399 GOSUB875:RETURN
- 400 REM ** STUDENT INSTRUCTIONS **
- 405 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,0:POKE53280,0
- 410 UP=0:UG$="[211]TUDENT [201]NST":GOSUB850
- 411 GOSUB 2790
- 412 GOSUB 1200
- 490 IFUZ=1THENSYSUP%:GOTO217
- 499 RETURN
- 500 REM ** TEACHER INSTRUCTIONS **
- 501 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,2:POKE53280,10
- 502 UP=0:UG$="[212]EACHER [201]NST":GOSUB850
- 503 PRINT" [212]O THE BEST OF OUR KNOWLEDGE,"
- 504 PRINT" THIS PROGRAM IS IN THE PUBLIC"
- 505 PRINT" DOMAIN. [201]F THIS IS NOT THE CASE"
- 506 PRINT" PLEASE CONTACT:"
- 507 PRINT" [195]OMMODORE [194]USINESS [205]ACHINES"
- 508 PRINT" 3370 [208]HARMACY [193]VE.
- 509 [153]" ATNGINCOURT, (null)NTARIO"
- 510 [153]" LENANADA (null)1(null) 2(null)4"
- 511 [153]" (416) 499-4292"
- 512 UP[178]1:[141] 835:[141] 850:
- 513 [153]" (null)ROGRAM (null)AME: LENYCLON FIGHTER
- 514 PRINT" [215]RITTEN [194]Y : [213]NKNOWN
- 515 [153]" (null)PGRADED PEEKY :
- 516 PRINT" [212]HIS PROGRAM WILL RUN ON ANY
- 519 [153]" (null)VAL(null) 64 LEN(null)(null)(null)(null)(null)VAL(null)
- 520 PRINT" [195][207][205][205][207][196][207][210][197] 64 [195][207][205][208][213][212][197][210]
- 521 [141]835
- 590 [139]UZ[178]1[167][158]UP%:[137]217
- 599 [142]
- 600 [143] ** PROGRAM MODIFICATION INST **
- 601 [153]"LOAD":[151]UT,UL%
- 605 UP[178]0:UG$[178]"(null)ROGRAM (null)OD":[141]850
- 660 [141]835
- 690 [139]UZ[178]1[167][158]UP%:[137]217
- 699 [142]
- 700 [143] ** TO USE 8032 LOAD CBM4032 **
- 710 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032
- 720 PRINT" LOAD THE 'CBM 4032' PROGRAM"
- 730 SYSUU+71
- 740 END
- 800 REM ** T I T L E P A G E **
- 802 PRINT"[147]";:POKEUT,UU%:IFPEEK(50003)=0THENPOKE53280,14:POKE53281,6
- 804 FORI=1TO38:PRINT"[166][146]";:NEXT
- 806 FORI=1TO22:PRINT"[157][166][146]";:NEXT
- 808 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
- 810 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
- 812 PRINT"[169] [146]
- 814 [153]" WAIT WAITSTEP
- 816 PRINT" [146] [163][223]
- 818 [153]"(null) WAIT
- 820 PRINT"C O M M O D O R E
- 822 [153]"EDUCATIONAL
- 824 PRINT"SOFTWARE
- 826 [143] ** COMMODORE LOGO **
- 827 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT":I[178]0
- 828 [161]A$:[139]A$[179][177]" "[167]I[178]I[170]1:[139]I[179]250[167]828
- 830 T1$[178]"":T2$[178]"":T3$[178]"":T4$[178]"":I[178]0
- 832 [137]300
- 835 [143] ** SPACE BAR PRESS **
- 840 [151]UO,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
- 844 [161]UI$:[139]UI$[179][177]" "[167]844
- 846 [142]
- 850 [143] ** PAGE DESIGN ROUTINE **
- 852 UP[178]UP[170]1
- 855 [153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
- 860 [153]" --------------------------------------"
- 864 [139]UH[179][177]0[167]870
- 865 [153][200](UD$,24);[200](UP$,7);"HELP - PRESS H <RETURN>"
- 870 UH[178]0:[153]"":[142]
- 875 [143] ** PLEASE WAIT REMARK **
- 880 [153][200](UD$,24);" ONE MOMENT PLEASE... "
- 885 [142]
- 900 [143] ** SET UP VARIABLES **
- 901 UX$[178]"H":[134]UQ%(1000):UB[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UU[178]1024
- 902 UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1146:UM[178]32768:UO[178]158:[151] 50003,0
- 903 [139][194](50003)[178]0[167]UB[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UU[178]2048
- 904 [139][194](50003)[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2139:UM[178]1024:UO[178]198
- 905 UD$[178]""
- 906 UP$[178]" "
- 907 UT$[178]" LENYCLON PEEKATTLE CLOSECLOSECLOSECLOSE":[143] PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
- 908 [142]
- 910 [143] ** SET VARIABLES **
- 915 [141]900
- 920 [143] ** CHECK FOR 8032 **
- 925 [153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
- 930 [139][194](UB[170]40)[179][177]96[167][141]700
- 931 [143] ** MEMORY CHECK **
- 932 [139] [184](0)[177]2000[167]937
- 933 [153]"LOADTHIS MACHINE DOES NOT HAVE ENOUGH"
- 934 [153]"MEMORY TO RUN THIS PROGRAM !"
- 935 [158]UU[170]71
- 936 [128]
- 937 [153]"LOAD":[139][194](50003)[178]0[167]962
- 940 [143] ** BASIC 2.0 OR 4.0 OR C-64 SETUP **
- 941 [151]1075,133:[151]1076,144:[151]1077,234:[151]1079,4:[151]1080,133:[151]1081,145
- 942 [151]1091,155:[151]1098,133:[151]1099,144:[151]1100,234:[151]1103,133
- 943 [151]1104,145:[151]1105,234:[151]1082,234
- 945 [139][194](50003)[179][177]160[167]955
- 950 [151]1093,88:[151]1094,228:[151]1097,85:[151]1102,228:[137]965
- 955 [139][194](50003)[179][177]1[167]990
- 960 [151]1093,49:[151]1094,230:[151]1097,46:[151]1102,230:[137]965
- 962 [151]2099,141:[151]2100,20:[151]2101,3:[151]2103,8:[151]2104,141:[151]2105,21
- 963 [151]2106,3:[151]2115,145:[151]2117,52:[151]2118,234:[151]2121,49:[151]2122,141
- 964 [151]2123,20:[151]2124,3:[151]2126,234:[151]2127,141:[151]2128,21:[151]2129,3
- 965 [158]UU[170]48:[143] DISABLE STOP KEY
- 970 [141]800:[143] TITLE
- 980 [137]300:[143] MENU
- 990 [153]"LOADTHE PGM WILL NOT WORK ON THIS MACHINE!":[128]
- 1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0:[143] ** PROGRAM STARTS HERE **
- 1001 [153]"LOAD";:[140]:[139][194](50003)[178]0[167][151]53281,6:[151]53280,6
- 1010 [156]:[141]900
- 1020 [143]
- 1030 [151]UT,UL%
- 1040 [153]"LOADLEN (null) LEN (null) (null)CLOSE(null) PEEK ATN (null) (null) (null) VAL"
- 1100 [153]" (null)OUR SPEED DETERMINES DIFFICULTY:"
- 1110 [153]" 1 = SLOW."
- 1120 [153]" 2 = MEDIUM."
- 1130 [153]" 3 = FAST."
- 1140 [153]" (null)ELECT SPEED NOW: ";
- 1150 US$[178]"123":UL[178]1:[141]35:Q$[178]UR$
- 1160 [139] Q$ [179]"4" [175] Q$ [177] "0" [167] 1280
- 1170 [153]" (null)NLY DIFFICULTY 1 - 3 ALLOWED"
- 1180 [143]
- 1190 [137]1140
- 1200 [141] 850:[153]" ASCIRE BY PRESSING THE FWAIT KEY."
- 1210 [153]" ATNIM BY PRESSING THE 4ON86CMDCMD2ONWAIT KEYS"
- 1220 [153]" 4WAIT MAKES THE TARGET MOVE LEFT."
- 1230 [153]" 8WAIT MAKES THE TARGET MOVE UP."
- 1240 [153]" 6WAIT MAKES THE TARGET MOVE RIGHT.
- 1250 PRINT" 2[146] MAKES THE TARGET MOVE DOWN."
- 1260 GOSUB 835:RETURN
- 1270 GET W$:IFW$=""THEN1290
- 1280 Q=VAL(Q$)
- 1290 REM
- 1300 REM
- 1310 V$=""
- 1320 H$=""
- 1330 R$="[171][192][218][192][179][157][157][157][145][178]"
- 1340 RE$=" [157][157][157][145] "
- 1350 G$="[192][192][219][157][145][213][219][201][157][219][192][192][157][157][157][157][157][202][219][203][157][157][221][157][221][157][145][145][145][145][145][221][157][145][221]
- 1360 [153]"LOAD":[151]UT,UU%
- 1370 [141]2100
- 1380 TI$[178]"000000"
- 1390 [153]"LOAD";
- 1400 [153]"========================================";
- 1410 [129] W[178]1 [164] 22
- 1420 [153]"-<";
- 1430 [130]
- 1440 [153]">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>";
- 1450 V[178][181]([187](1)[172]18)[170]3:H[178][181]([187](1)[172]36)[170]2:VO[178]18:HO[178]33
- 1460 [153][200](V$,25);"HITS-";HS;" SHOTS-";SHOTS;" REMAINING -";RR[171]HS;""
- 1470 [153][200](V$,VO);[200](H$,HO);RE$
- 1480 [153]G$
- 1490 [153][200](V$,V);[200](H$,H);R$
- 1500 [139] TI$[177]"000045"[167]2030
- 1510 [161] I$:[139]I$[178]""[167] 1560
- 1520 D$[178]I$
- 1530 [139]D$[178]"2"[176]I$[178]"4"[176]I$[178]"8"[176]I$[178]"6"[167]1560
- 1540 [139]D$[178]"F"[167][137] 1740
- 1550 [137] 1510
- 1560 VO[178]V:HO[178]H
- 1570 [145]([197](D$)[173]2)[137]1580,1590,1600,1610
- 1580 V[178]V[170]Q:[137]1620
- 1590 H[178]H[171](Q[170]1):[137]1620
- 1600 H[178]H[170](Q[170]1):[137]1620
- 1610 V[178]V[171]Q
- 1620 RV[178][181]([187](1)[172]3)[171]1
- 1630 RH[178][181]([187](1)[172]3)[171]1
- 1640 V[178]V[170]RV:H[178]H[170]RH
- 1650 [139]V[179]3[167] V[178]3
- 1660 [139]H[179]1[167]H[178]1
- 1670 [139] V[177]23[167]V[178]23
- 1680 [139] H[177]34[167]H[178]34
- 1690 [139]Q[178]1[175]TI$[178]"000035"[167]2560
- 1700 [139]Q[178]2[175]TI$[178]"000025"[167]2560
- 1710 [139]Q[178]3[175]TI$[178]"000015"[167]2560
- 1720 [139]Q[178]3[175]TI$[178]"000030"[167]2560
- 1730 [137] 1470
- 1740 [143] FIRE
- 1750 SHOTS[178]SHOTS[170]1
- 1760 [153][200](V$,21);[163]28);
- 1770 [153]"(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON "
- 1780 [153][200](V$,21);"(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON ON ON ON ON ON ON "
- 1790 [153][200](V$,21);[163]28);
- 1800 [153]" CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON "
- 1810 [153][200](V$,21);" ON ON ON ON ON ON ON ON ON ON ON ON ON ON ON ON "
- 1820 [139] [194](33187)[178] 114[167] 1900
- 1830 [139] [194](33187)[178] 90 [167] 1900
- 1840 [139] [194](33267)[178] 90 [167] 1900
- 1850 [139] [194](33226)[178] 90 [167] 1900
- 1860 [139] [194](33228)[178] 90 [167] 1900
- 1870 [153][200](V$,25);"HITS-";HS;" SHOTS-";SHOTS;" REMAINING -";RR[171]HS;""
- 1880 [139]SHOTS[178]50[167]2070
- 1890 [137] 1560
- 1900 [143] DIRECT HIT
- 1910 HIT$[178]" SPC( CMDCMDCMDONSPC( SPC(CMDCMDCMDSPC( SPC(CMDCMDCMDONONONCMDSPC( SPC(CMDCMDCMDCMDCMDSPC( SPC("
- 1920 CR$[178]" CMDCMDCMDON CMDCMDCMD CMDCMDCMDCMDONONON CMDCMDCMDCMDCMD "
- 1930 [129]DH[178]1[164]5
- 1940 [153][200](V$,12);[200](H$,18);HIT$
- 1950 [129]X[178]1[164]100:[130]
- 1960 [153][200](V$,12);[200](H$,18);CR$
- 1970 [129]X[178]1[164]100:[130]
- 1980 [130]
- 1990 HS[178]HS[170]1
- 2000 [139]HS[178]RR[167]2420
- 2010 TM[178]TM[170][197](TI$)
- 2020 TI$[178]"000000":[137]1390
- 2030 [153][200](V$,V);[200](H$,H);RE$
- 2040 [153][200](V$,18);"THE ENEMY HAS OVER-POWERED YOU"
- 2050 [129]X[178]1[164]2000:[130]
- 2060 [137]2670
- 2070 [153][200](V$,20);"WEAPONS ENERGY DEPLETEDONON"
- 2080 [129]X[178]1[164]2000:[130]
- 2090 [137]2670
- 2100 [153]"LOAD";:[141]2340
- 2110 R1$[178]"* ON* CMDCMD* "
- 2120 R2$[178]"* ON* CMDCMD* ONONON* CMDCMD* "
- 2130 R3$[178]"* ON* CMDCMD* ONONON* CMDCMD* ONONONONON* CMDCMD* CMDCMD* "
- 2140 R[178][181]([187](1)[172]3[170]1)
- 2150 [145]R[141]2310,2320,2330
- 2160 [129]X[178]30[164]19[169][171]1
- 2170 [153][200](V$,13);[200](H$,X);RR$
- 2180 M[178]M[170]1:[139]M[178]2[167]2230
- 2190 [139]R[178]1[167][153][200](V$,25)" 3 CYCLON SHIPS APPROCHING"
- 2200 [139]R[178]2[167][153][200](V$,25)" 5 CYCLON SHIPS APPROCHING"
- 2210 [139]R[178]3[167][153][200](V$,25)" 8 CYCLON SHIPS APPROCHING"
- 2220 [137]2240
- 2230 [153][200](V$,25)" ";:M[178]0
- 2240 [129]XX[178]1[164]300:[130]
- 2250 [130]
- 2260 [153][200](V$,20);[200](H$,10);"FIGHTER'S IN RANGE"
- 2270 [129]X[178]1[164]1000:[130]
- 2280 [153][163]8)"SWITCHING TO ATTACK MODE"
- 2290 [129]X[178]1[164]1500:[130]
- 2300 [142]
- 2310 RR$[178]R1$:RR[178]3:[142]
- 2320 RR$[178]R2$:RR[178]5:[142]
- 2330 RR$[178]R3$:RR[178]8:[142]
- 2340 [153]"OROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROR";
- 2350 [129]X[178]1[164]22
- 2360 [153]"OROR";
- 2370 [130]
- 2380 [153]"OROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROR"
- 2390 [153][163]10) "LONG RANGE SCANNER"
- 2400 [153][200](V$,13);[200](H$,16);"TANTANTAN(null)TANTANTANCMDCMDCMDCMDON(null)CMDON(null)CMD(null)CMD(null)"
- 2410 [142]
- 2420 [153][200](V$,22);"ALL CYCLON FIGHTERS DESROYED"
- 2430 [153][200](V$,25);"HITS-";HS;" SHOTS-";SHOTS;" REMAINING -";RR[171]HS;""
- 2440 [129]X[178]1[164]2000:[130]
- 2450 [153]"LOAD"
- 2460 [153]"GOOD GOING .............!!!!!!"
- 2470 [153]"YOU DESTROYED ";HS;" CYLON SHIPS"
- 2480 [153]"IN ";TM;" CENTONS"
- 2490 [153]"SHOTS FIRED - ";SHOTS
- 2500 [153]"PROFICIENCY RATING - ";[181](HS[173]SHOTS[172]10000)[173]100;"%"
- 2510 [153]"DO YOU WISH ANOTHER MISSION? ";:US$[178]"YN":UL[178]1:[141]35
- 2520 Z$[178]UR$
- 2530 [139]Z$[178]"Y"[167]HS[178]0:TM[178]0:SHOTS[178]0:[137]1000
- 2540 [139]Z$[178]"N"[167][142]
- 2550 [137]2520
- 2560 [153][200](V$,VO);[200](H$,HO);RE$
- 2570 [153][200](V$,20);[200](H$,4);"YOU HAVE OVERRUN THE ENEMY SHIP"
- 2580 [153][163]5)"THE ENEMY IS BEHIND YOU"
- 2590 [153][163]5)"ONHIT 'R' TO REVERSE THRUST"
- 2600 T[178]TI[170]180
- 2610 [161]Z$
- 2620 [139]Z$[178]"R"[167][153]"LOAD":[137]1390
- 2630 [139]TI[177]T[167]2650
- 2640 [137]2610
- 2650 [153]"LOADTHE ENEMY HAS MADE A HIT ON YOUR SHIP"
- 2660 [153]"FROM BEHIND........!!!!!!"
- 2670 [153]"------- YOU HAVE LOST -------
- 2680 REM
- 2690 REM
- 2700 GOSUB835
- 2710 REM
- 2720 REM
- 2730 REM
- 2740 REM
- 2750 REM
- 2760 REM
- 2770 REM
- 2780 GOTO300
- 2790 PRINT" [217]OU ARE IN COMMAND OF A VIPER"
- 2800 PRINT" FIGHTERSHIP. [217]OUR LONG RANGE SENSORS"
- 2810 PRINT" WILL WARN OF APPROCHING ENEMY CYCLON"
- 2820 PRINT" FIGHTERS WHEN THE COMPUTER SWITCHES TO"
- 2830 PRINT" ATTACK MODE, THE AUTO-LOCK CIRCUITRY"
- 2840 PRINT" WILL KEEP YOU IN RANGE, HOWEVER THE"
- 2850 PRINT" FINAL AIMING IS UP TO YOU. [217]OUR
- 2860 [153]" WEAPONS ENERGY WILL ALLOW 50 SHOTS."
- 2870 [141] 835:[141] 850
- 2890 [153]" (null)INCE YOU HAVE THE FASTEST SHIP IN"
- 2900 [153]" THE GALAXY, BE PREPARED TO REVERSE"
- 2910 [153]" THRUST IN THE EVENT YOU OVERRUN THE"
- 2920 [153]" ENEMY (THE COMPUTER WILL PROMPT YOU)."
- 2930 [153]" LEFT$OWEVER BE CAREFUL-IF THE CYCLON GETS"
- 2940 [153]" BEHIND YOU HIS AUTO-LOCK CIRCUIT WORKS"
- 2950 [153]" WELL ALSO, AND THERE WILL NOT BE MUCH"
- 2960 [153]" TIME TO ESCAPE HIS LASER BEAM."
- 2970 [141] 835:[141] 850
- 2990 [153]" STR$URING THE BATTLE YOU WILL HAVE ONLY "
- 3000 [153]" 45 CENTONS OF TIME TO TRACK DOWN EACH"
- 3010 [153]" FIGHTER BEFORE THE OTHER SHIPS COME TO"
- 3020 [153]" HIS RESCUE."
- 3030 [141] 835:[142]
-